home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 78 / 078.d81 / jukebox boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  899b  |  24 lines
  1. 100 poke53280,0:poke53281,0:print"[147]"
  2. 110 gosub 180
  3. 120 sys57812"jukebox.o",8,0:poke780,0:poke781,0:poke782,64:sys65493
  4. 130 :
  5. 140 poke 16387,8  :rem device number
  6. 150 poke 16388,27 :rem color preference
  7. 160 print "[147]":sys16384:goto270
  8. 170 :
  9. 180 poke214,15:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  10. 190 fori=1to3:print"                                      ":next
  11. 200 print"       [208]ublished on [204][207][193][196][211][212][193][210] #78      "
  12. 210 print"      Subscriptions 1-800-831-2694    "
  13. 220 print"           [193]ll [210]ights [210]eserved        "
  14. 230 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  15. 240 au$="1890's [202]ukebox [201][201]":poke214,17:print:printspc(20-len(au$)/2)"[152]"au$
  16. 250 au$="[194]y [193]lan [194]eggerow ([195]) 1990":poke214,18:print
  17. 260 printspc(20-len(au$)/2)"[152]"au$"":return
  18. 270 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  19. 280 if er<>63 then print"[147]":end
  20. 290 a$="hello connect":q$=chr$(34):poke53281,0:poke53280,0:print"[147]"
  21. 300 print"[144]load"q$a$q$",8"
  22. 310 print"run":poke631,13:poke632,13:poke198,2:end
  23. 10000 open15,8,15,"s0:jukebox boot":close15:save"jukebox boot",8:end
  24.